home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.024.Teach / teach.aii / uglobals.aii < prev    next >
Encoding:
Text File  |  1990-06-24  |  1.1 KB  |  75 lines  |  [TEXT/MPS ]
  1. ***********************************************************************
  2. *
  3. * teach uglobals.aii -- Version 3.0
  4. *
  5. * Copyright (c)
  6. * Apple Computer, Inc.  1986-1990
  7. * All Rights Reserved.
  8. *
  9. * Developer Technical Support Apple II Sample Code
  10. *
  11. * This file contains the teach program globals and setup.
  12. *
  13. ***********************************************************************
  14.  
  15.     case  on
  16.     longi on
  17.     longa on
  18.  
  19.     INCLUDE 'm16.memory'
  20.     INCLUDE 'teach.equ'
  21.  
  22. ***********************************************************************
  23.  
  24.     EXPORT initGlobals
  25. initGlobals    PROC
  26.  
  27.     pha
  28.     _MMStartUp
  29.     pla
  30.     sta userID
  31.  
  32.     stz quitFlag
  33.     stz staggerCount
  34.     lda #-1
  35.     sta lastWindow
  36.     sta lastWindow+2
  37.  
  38.     rts
  39.  
  40.     EXPORT userID
  41. userID        ;       
  42.     DC.W 0
  43.  
  44.     EXPORT quitFlag
  45. quitFlag        ;       
  46.     DC.W 0
  47.  
  48.     EXPORT staggerCount
  49. staggerCount        ;       
  50.     DC.W 0
  51.  
  52.     EXPORT lastWindow
  53. lastWindow        ;       
  54.     DC.L 0
  55.  
  56.     EXPORT event
  57. event        ;       
  58.     DC.W 0    ;wmWhat
  59.     DC.L 0    ;wmMessage
  60.     DC.L 0    ;wmWhen
  61.     DC.L 0    ;wmWhere
  62.     DC.W 0    ;wmModifiers
  63.     DC.L 0    ;wmTaskData
  64.     DC.L $001FFFFF    ;wmTaskMask
  65.     DC.L 0    ;wmLastClickTick
  66.     DC.W 0    ;wmClickCount
  67.     DC.L 0    ;wmTaskData2
  68.     DC.L 0    ;wmTaskData3
  69.     DC.L 0    ;wmTaskData4
  70.     DC.L 0    ;wmLastClickPt
  71.  
  72.     ENDP
  73.  
  74.     END
  75.